home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1068 < prev    next >
Text File  |  1996-10-03  |  2KB  |  145 lines
  1. /makepattern defed /xt xdf
  2. xt not {/yt save def} if
  3. userdict begin /fhpatdict 12 dict def end
  4. fhpatdict begin
  5. /PatternType 1 def
  6. /PaintType 1 def    
  7. /TilingType 1 def
  8. /BBox [0 0 8 8] def
  9. /XStep 8 def
  10. /YStep 8 def
  11. /PatMtx [1 0 0 -1 0 8] def
  12. /PatIMtx [1 0 0 1 0 0] def
  13. /PaintProc
  14. {begin FHPatColor vc 8 8 true PatMtx PatData imagemask end} bdf
  15. /FHPatColor [0 0 0 0] def
  16. end
  17. /macpatorient{1 0 dtransform 0 eq exch 0 ne and}bdf
  18. /veccalc { dtransform round exch round exch idtransform dup mul exch dup mul exch add sqrt } bdf
  19. gsave
  20. 0 0 transform
  21. 2 copy
  22. round exch round exch
  23. 2 index sub exch 3 index sub exch
  24. idtransform translate
  25. pop pop
  26. 1 0 veccalc 0 1 veccalc
  27. scale
  28. matrix currentmatrix
  29. /PATmtx xdf
  30. grestore
  31. /pF{
  32. gsave 1 setgray filler grestore
  33. fhpatdict begin        
  34. /PatData xdf        
  35. /FHPatColor xdf        
  36. end
  37. save                
  38. PATmtx setmatrix
  39. fhpatdict dup         
  40. /PatIMtx get         
  41. PATmp                 
  42. PATsp                 
  43. /clipper load /eoclip load eq PATfill
  44. restore
  45. }bdf
  46. /pS{
  47. fhpatdict begin        
  48. /PatData xdf        
  49. /FHPatColor xdf        
  50. end
  51. save
  52. PATprestroke
  53. PATmtx setmatrix
  54. gsave 1 setgray stroke grestore
  55. fhpatdict dup
  56. /PatIMtx get
  57. PATmp
  58. PATsp
  59. PATstroke
  60. restore
  61. }bdf
  62. xt not {yt restore} if
  63. xt {/yt save def} if
  64. /macpatstring 8 string def
  65. /macpattint 0 def
  66. /macpatcol [] def
  67. /macpatangle{1 0 matrix defaultmatrix dtransform exch atan}bdf
  68. /macpatorient{1 0 dtransform 0 eq exch 0 ne and}bdf
  69. /macpatcountbits
  70. {
  71. 0 exch                    
  72. {
  73. cvi                    
  74. 0 1 8
  75. {                     
  76. pop
  77. dup 1 and        
  78. 0 ne            
  79. {
  80. exch        
  81. 1 add        
  82. exch
  83. } if
  84. -1 bitshift      
  85. } for
  86. pop                    
  87. }
  88. forall
  89. }bdf
  90. /macpatset
  91. {
  92. macpatstring copy pop
  93. 9.375
  94. macpatangle
  95. macpatorient not{-90 add}if
  96. {
  97. 1 add 4 mul cvi macpatstring exch get exch
  98. 1 add 4 mul cvi 7 sub bitshift 1 and
  99. inverted? {1 exch sub} if
  100. }
  101. setscreen
  102. 64 macpatstring macpatcountbits sub 64 div
  103. inverted? {.9921875 exch sub} if
  104. /macpattint xdf
  105. {} st
  106. fhnumcolors 1 ne
  107. {
  108. cvc dup length array copy /macpatcol xdf    
  109. /macpattint 1 macpattint sub def        
  110. macpatcol length 4 eq
  111. {
  112. 0 1 3
  113. {
  114. macpatcol exch 2 copy
  115. get .25 lt{0}{macpattint}ifelse put
  116. }for
  117. }
  118. {
  119. macpatcol dup 0 get .25 lt{0}{macpattint}ifelse 0 exch put
  120. }ifelse
  121. macpatcol vc
  122. }
  123. {
  124. currentgray 1 ne {macpattint setseparationgray} if
  125. }
  126. ifelse
  127. }bdf
  128. /pF{
  129. gsave
  130. exch vc
  131. macpatset
  132. {filler}fp
  133. grestore
  134. }bdf
  135. /pS{
  136. gsave
  137. exch vc
  138. macpatset
  139. {stroke}fp
  140. grestore
  141. }bdf
  142. xt {yt restore} if
  143. /pf{closepath pF}bdf
  144. /ps{closepath pS}bdf